home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / dev / asm / Abakus.lha / Abakus / I / StartWB < prev    next >
Text File  |  1995-07-05  |  1KB  |  62 lines
  1.  
  2.         movem.l d0/a0,-(sp)
  3.  
  4.         movea.l  4,a6
  5.         moveq.l #37,d0
  6.  
  7.         lea dosname,a1
  8.         jsr -552(a6) ;_LVOOpenLibrary(a6)
  9.         tst.l d0
  10.         beq _exit
  11.         move.l d0,DOSBase
  12.  
  13.         sub.l   a1,a1
  14.         move.l  4,a6
  15.         jsr  -294(A6) ;_LVOFindTask(a6)
  16.         move.l d0,dtask
  17.         move.l  d0,a4
  18.         tst.l   172(a4)
  19.         beq   _FC_FWB
  20.         movem.l (sp)+,d0/a0
  21.         bra     _FC_run
  22. _FC_FWB
  23.         lea     92(a4),a0
  24.         move.l  4,a6
  25.         jsr  -384(A6) ;_LVOWaitPort(a6)
  26.         lea     92(a4),a0
  27.         move.l  4,a6
  28.         jsr  -372(A6)  ;_LVOGetMsg(a6)
  29.         move.l  d0,_FC_WBM
  30.         movem.l (sp)+,d0/a0
  31. _FC_run
  32.         bsr.s   x_go_start
  33. ENDE
  34.         move.l DOSBase,a1
  35.         move.l 4,a6
  36.         jsr -414(A6) ;_LVOCloseLibrary(a6)
  37.  
  38.         move.l  d0,-(sp)
  39.         tst.l   _FC_WBM
  40.         beq.s   _exit
  41.         move.l  4,a6
  42.         jsr  -132(A6)  ;_LVOForbid(a6)
  43.         move.l  _FC_WBM(pc),a1
  44.         move.l  4,a6
  45.         jsr   -378(A6)  ;_LVOReplyMsg(a6)
  46. _exit
  47.         move.l  (sp)+,d0
  48.         rts
  49.  
  50. dosname  dc.b "dos.library",0
  51.         cnop    0,4
  52.  
  53. _end_adr  ds.l 1
  54. DOSBase  ds.l  1
  55. stdout  ds.l 1
  56. stdin   ds.l 1
  57. _FC_WBM       dc.l   0
  58. dtask   ds.l 1
  59.  
  60. x_go_start
  61.  
  62.